library(tidyverse)
dados <- abjData::muni %>%
count(uf_sigla) %>%
mutate(uf_sigla = forcats::fct_reorder(uf_sigla, n))
ggplot_ufs <- dados %>%
ggplot() +
geom_col(aes(x = n, y = uf_sigla)) +
theme_light()
# transformar um objeto ggplot em um plotly
plotly::ggplotly(ggplot_ufs)